% Campbell_Shiller_UK plot
clearvars -except Globaloption option

if exist('Globaloption', 'var') == 0
    Globaloption.savefig = 1;
end

%% split sample
load MAT/Netherland_cy_150_1601_1699.mat;
s_pre=s;
std_coeff_pre = std_coeff;
debt_pre = debt';
upper_pre = upper;
debt_book_pre=debt_book;

load MAT/Netherland_cy_150_1700_1794.mat;
s = [s_pre s];
std_coeff = [std_coeff_pre std_coeff];
debt = [debt_pre debt'];
debt_book = [debt_book_pre; debt_book];

output_rp = 0.03;
f=figure;
f.Position=[1000 918 560 300];

ylimit = [1,3];
startdatenum=1601;
enddatenum=1794;

plot_CI_2(startdatenum:enddatenum, s, std_coeff, debt_book,debt, upper,ylimit)

hold on

set(gcf, 'PaperUnits', 'inches', 'Units', 'inches');
f.PaperSize = [6 3.75];

if Globaloption.savefig == 1
    print(['../../results/figures_main/Netherlands/Netherland_cy_splitsample_', num2str(output_rp * 1000), '_', num2str(startdatenum), '_', num2str(enddatenum)], '-dpdf', '-fillpage');
end

%% Benchmark with stock
load MAT/Netherland_cy_wstock_150_1630_1794.mat;
output_rp = 0.03;
f = figure;
f.Position = [1000 918 560 300];

ylimit = [1, 3];
startdatenum = 1630;
enddatenum = 1794;

plot_CI_2(startdatenum:enddatenum, s, std_coeff, debt_book, debt, upper, ylimit)

set(gcf, 'PaperUnits', 'inches', 'Units', 'inches');
f.PaperSize = [6 3.75];

if Globaloption.savefig == 1
    print(['../../results/figures_main/Netherlands/Netherland_cy_wstock_', num2str(output_rp * 1000), '_', num2str(startdatenum), '_', num2str(enddatenum)], '-dpdf', '-fillpage');
end

